home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 46
/
Mobiclic46.iso
/
pc
/
DATA
/
SHARED
/
COMMUNS.CST
/
00012_Script_gestion des curseurs personnalisés
< prev
next >
Wrap
Text File
|
2002-07-12
|
4KB
|
154 lines
-- gestion des curseurs personnalisΘs
-- curseur doigt
on doigt s
set n = the number of member "doigtM"
repeat with i=1 to the paramCount
if value(param(i))<>0 then
set the cursor of sprite param(i) to [n,n+1]
else
listeCurseurs param(i),n
end if
end repeat
end doigt
-- doigt barrΘ
on doigtBarrΘ s
set n = the number of member "doigtBarrΘM"
repeat with i=1 to the paramCount
if value(param(i))<>0 then
set the cursor of sprite param(i) to [n,n+1]
else
listeCurseurs param(i),n
end if
end repeat
end doigt
-- curseur main
on main s
set n = the number of member "mainM"
repeat with i=1 to the paramCount
if value(param(i))<>0 then
set the cursor of sprite param(i) to [n,n+1]
else
listeCurseurs param(i),n
end if
end repeat
end main
-- doigt tournΘ vers la gauche
on reviens s
set n = the number of member "reviensM"
repeat with i=1 to the paramCount
if value(param(i))<>0 then
set the cursor of sprite param(i) to [n,n+1]
else
listeCurseurs param(i),n
end if
end repeat
end reviens
-- doigt tournΘ vers la droite
on droite s
set n = the number of member "droiteM"
repeat with i=1 to the paramCount
if value(param(i))<>0 then
set the cursor of sprite param(i) to [n,n+1]
else
listeCurseurs param(i),n
end if
end repeat
end droite
-- doigt tournΘ vers le bas
on doigtBas s
set n = the number of member "doigtBasM"
repeat with i=1 to the paramCount
if value(param(i))<>0 then
set the cursor of sprite param(i) to [n,n+1]
else
listeCurseurs param(i),n
end if
end repeat
end doigtBas
-- loupe
on loupe s
set n = the number of member "loupeM"
repeat with i=1 to the paramCount
if value(param(i))<>0 then
set the cursor of sprite param(i) to [n,n+1]
else
listeCurseurs param(i),n
end if
end repeat
end loupe
-- loupe nΘgative
on loupeM s
set n = the number of member "loupe-M"
repeat with i=1 to the paramCount
if value(param(i))<>0 then
set the cursor of sprite param(i) to [n,n+1]
else
listeCurseurs param(i),n
end if
end repeat
end loupeM
-- pinceau
on pinceau s
set n = the number of member "pinceauM"
repeat with i=1 to the paramCount
if value(param(i))<>0 then
set the cursor of sprite param(i) to [n,n+1]
else
listeCurseurs param(i),n
end if
end repeat
end pinceau
-- oeil
on oeil s
set n = the number of member "coeilM"
repeat with i=1 to the paramCount
if value(param(i))<>0 then
set the cursor of sprite param(i) to [n,n+1]
else
listeCurseurs param(i),n
end if
end repeat
end oeil
-- Θquerre
on equerre s
set n = the number of member "equerreM"
repeat with i=1 to the paramCount
if value(param(i))<>0 then
set the cursor of sprite param(i) to [n,n+1]
else
listeCurseurs param(i),n
end if
end repeat
end equerre
-- suppression des curseurs
on doigtOff s
repeat with i=1 to the paramCount
if value(param(i))<>0 then
set the cursor of sprite param(i) to 0
else
listeCurseurs param(i),0
end if
end repeat
end doigtOff
-- gestion d'une liste de pistes du type "[premiΦre piste]>[derniΦre piste]"
on listeCurseurs chaine,n
set o=offset(">", chaine)
set n1=value(char 1 to o-1 of chaine)
set n2=value(char o+1 to length(chaine) of chaine)
repeat with j=n1 to n2
set the cursor of sprite j to [n,n+1]
end repeat
end listeCurseurs